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SBEGIN RMSORNDWN,001,RMSRMS,<RMS 10 RUN DOWN> 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


N E S RE 0 0 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Poceceneoe NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onepon Arion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


TOPE ESASLLELASALALALLALE SALAS ES EEE SASS RES E RRR ARRAS ARRAS RRR RA RRR SRSA RASS SD DS SB | 
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+ 
; Facility: rms32 


Abstract: this module insures all rms i/o activity is complete, 
closes all files, and resets the ifab and irab tables. 


; Environment: 


star processor running starlet exec. 


Author: lL f laverdure, creation date: 5-5-77 


Modified By: 
v04-001 


v03-005 


v03-004 


RASO332 Ron Schaefer ; 14-Sep-1984 

ALWAYS re-enable ASTS when stalling inside rundown 

as they could get disabled by the previous exec mode 

thread of RMS that will never continue and re-enable them. . 


DGB0040 Donald G. Blair 02-May-1984 
If the PIOSV_INHAST bit is set when we start an 

RMS operation, we conclude that the caller must be 

at exec AST level or higher and would break RMS | 
synchronization rules if he were allowed to continue. 
Return error. This fix also includes a change from 
Jim Johnson to clear the FID correctly in GETDVIFID. 


$HZ0001 Stephen H. Zalewski 14-Sep-1983 
Move routine RMSGETDVIFID from module RMOGETDV! to here, and 
rename it GETDVIFID. Module RMOGETDVI has been evaporated. 


v03-003 JWHO107 Jeffrey W. Horn 24-Sep-1982 
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Reorganize psects and rename entry points to single '$' 


0000 58; Add call to RMS$RU_UNLOCK to release locks 

+44 23 : held for the duration of a recovery unit. 
61: 03-002 KBT0316 Keith 8. Thompson 8-Sep-1982 | 
6¢ $ Remove all S0 sharine code | 
64 : v03-001 KBT0191 Keith B. Thompson 23-Aug-1982 | 
66 ; 
es s 
68 
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v04-001 RMSSRMSRUNDWN = RMS 1/0 RUN DOWN 1738-1 984 ):93:3 RMS. SRCJRMSORNDWN. MAR; 2 oa (3) 
~SBTTL RMSSRMSRUNDWN = RMS 1/0 RUN DOWN 


++ 
RMSSRMSRUNDWN = RMS 1/0 run down 


; this routine first determines the type of rundown desired, based 
; upon the second argument. if the type is ‘‘abort rms i/o'’, a branch 
; is made to rm$last_chance, otherwise the routine checks that all ifabs and irabs 
; are inactive. if any found active this routine awaits their completion after 
; first per ioraing a $cancel i/o if not a file-oriented device. 
; when all i/o ac ivity for the file is complete, $close is 
; performed for fhe file. if the close failed for an output file 
; on a files-oreiented device, an error is returned to the caller 
; who should note the error and recall this routine to run down 
; further files. if all files are successfully run down the 
; image ifab & irab tables are reset and return is made to the 
caller with a success code. 
| 


files are run down in this order: 
1. indirect process permanent files 
(‘error’ should be first) 
2. image files 
3. (only if caller's mode is not user and arg2=1) 
process permanent files 
Calling sequence: 


calls #2, sys$rmsrundwn 


ap users argument List (2 arguments) 
arg! descriptor for 22-character buffer 
to receive information about 
unsuccessfully closed output file 
(device id and file id) 
arg2 rundown type, as follows: 
0 - run down of image and indirect i/o for process permanent files 
1 = run down of image and process permanent files 
(caller's mode must be other than user) 
2 - abort rms i/o (caller's mode must be exec or kernel) 
all others are reserved, but currently behave as type 0 
; Implicit Inputs: 
caller's mode. 


Output Parameters: 


ri destroyed 


SS ee ee ee eee ee ee ee ee ee ee ee ee eee eS S| 
MAMAN EE EE BWW nononononononononony 3 OOOO 
DWNANEWN OC ODNAUEWN OC OONAU EWN OO DNAUEWN 0 OONOUEWN OOD NAUE WIND 


: Input Parameters: 


; Implicit Outputs: 


| 
| 
r0 status code | 
| 
| 


a a _ —— 


j 
| 
————s 
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159 ; 
29 160 ; information describing an output file unsuccessfully closed is 
161 ; stored in the caller-provided buffer in exactly the same 
$3 196 ; format as the dvi, did, and fid fields of the nam block. 
00 164 ; 
8 165 ; 
4 196 3 standard rms, in particular: 
0000 168 ; rms$_suc = all files closed 
0000 169; rms$_ccf = an output file could not be closed 
p08 170 ; successfully. caller-provided buffer 
00 171 ; has information identifying the file 
0000 \7e 3 rms$_ial - same as rms$_ccf except could not. 
0000 173; access caller's buffer to store file 
0000 174 ; id information. 
0000 175; 
9000 176 ; Side Effects: 
0000 177; 
0000 178 ; runs synchronously in exec mode inhibiting 
0000 179 ; and enabling asts as required. 
0000 180 ; 
0000 181 ;-- 
0000 182 


Completion Codes: 
| 
| 
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RMSSRMSRUNDWN = RMS 1/0 RUN DOWN 19-3 b= 8c 93:93:13 YAMS SRCIRMSORNDWN. MAR: 2 sags 
SENTRY RMSSRMSRUNDWN 
STSTPT RUNDOWN 
5B oc MOVPSL R11 
48 EF EXTZV #PSLSV_PRVMOD,- 
57 5B O #PSL$S_PRVMOD,R11,R7 3; save caller's mode 
02 OBA D1 CMPL B(AP) #2 : abort rms i/o? 
$8 BE BRUIT F AEiMand Meaay 
7 : br r 
40 00000000" 9F aeP 10$GW_STATUS , ERRBUSY pete cd. spss 


ts by releasing locks held for the durration of a recovery unit, 
any. 


FFE2" 30 BSBW RMSRU_UNLOCK 


3 next run down indirect i/o on process-permanent files 
5B OQ0000000'9F ODE 


58 01 =0 
0068 30 


MOVAL a@#PIO$GW_PIOIMPA,R11 : get pio impure area address 
ASSUME IMP$W_RMSSTATUS EQ 0 ; . 
MOVL #1,R8 3; indicate indirect run down 
BSBW RUNDWN 3; do the run down 

; (mote: clears r8) 


now run down the image 


5B 0000'CB ODE MOVAL W*PIOS$GW_IIOIMPA-PIOSGW_PIOIMPA(R11),R11 


; point to image impure area 


0063 30 BSBW RUNDWN ; do the run down 
18 BB 4 CLRL @I1MP$L_IFABTBL(R11) ; reset ifab table Link 
1C BB D4 CLRL @IMP$L_IRABTBL(R11) ; reset irab table Link 


point to process — 
i/o impure area again 


5B O0000°CB ODE MOVAL W*PIOSGW_PIOIMPA-PIO$GW_IIOIMPA(R11),R11 
At this poies there used to be code to return a whole pages 

n LH free space list back to the process i/o free page 
List. The space on the FMLH List is currently (v 2) used only 
for ASB allocation on IFAB operations and will bugcheck if space 
is not found. The behavior is now that a Page will be added to. 
the FMLH List the first time a process stalls on an IFAB operation 
and will remain there for the Life of the process. 


FP ANWIANNAIAINIWIIPSDOPODINININININID 2 9 OO PS HF POCO OCOOCOCOOCOC OOOOVOOOOOOWMM@cocpc 
SOON WR CO OONAUE WIN 9 OONAUE WN 0 OO NA UE WAR 0 OO NAMES WR OOONOUSE 
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eS SSSSSSSUSSsssssssss' 
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RMSORNDWN RMS IO RUN DOWN 16-SEP-1984 229: AX/VMS Macro V04-00 
v04-001 RMSSRMSRUNDWN = RMS 1/0 RUN DOWN 19-3 bn 1 Be 94:43:18 RMS.SRCJRMSORNDWN.MAR; 2 
: ‘3 3 now run down direct i/o on process-permanent files if desired 
E 243° 
01 08 ag 91 44 CMPB BC(AP) #1 : pet rundown? 
p Ne 4 45 BNEQ KETSUC : branch if not 
03 , ¥ 04 rf} CMPB R7 ,#PSLSC_USER 3; caller sufficiently privileged? 
02 13 047 4 BEQL KI fSuUC : branch if not 
48 1 049 48 60$: BSBB RUNDOWN 3; do the run down 
048 49 KITSUC: RMSSUC 
04E 50 EXIT: 
04 51 SSB #16, RO 3 stamp ‘rms’ on status code 
7 6 U6! b2 25 BSBB ENBAST 3; enable asts 
04 5 RET 3; back to caller 
0055 54 
0055 33 3 , : 
On ee 2$ 3; branch to rm$last_chance to do async process deletion rms i/o abort 
0055 258 
0055 259 RMSABORT: 
O0000000"EF 17 0055 260 JMP RMSLAST_CHANCE 


RMS 
Tab 
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58 62 ; 
088 8 ; If the PIOSV_INHAST bit is already set, we 
58 64 ; conclude that the caller must be at exec ast level or higher 
R28 65 ; (otherwise, he could not have kicked off an RMS operation 
58 06 ; while RMS was already in progress) and would break RMS 
0058 67 ; synchronization rules if allowed to continue. Return RMS$_BUSY 
0058 68 ; status when this happens. 
0058 69 ; 
0058 70 . 
0058 71 ERRBUSY: 
B28 ue RMSERR BUSY 
+4 7 SSB #16,R0 
04 4 27% RET 
0065 75 
0065 £6 H : : 
0065 77 ; enable rms ast's, reenabling exec ast's in all cases. 
0065 $8 : 
0065 79 
0065 280 ENBAST: CSB #PLOSV_INHAST, @#PI0$GW_STATUS 
006D 281 
006D at H . 
006D 283 ; clear ast inhibit and enable asts 
006D 284 ; 
006D 285 
006D 286 SSETAST_S #1 ; enable exec mode asts 
05 0076 287 RSB 
0077 288 
0077 289; : 
0077 290 ; inhibit rms asts 
0077 $a 3 
0077 92 
00000000'9F 01 AS 0077 293 INHAST: BISW2 #1aPIOSV_INHAST, a#P10$GW_STATUS 
05 OO7E 294 RSB 
OO7F 295 | 
OO7F 296; : . 
OO7F 297 ; wait for rms operation completion 
OO7F 298; 
OO7F 299 
OO7F 300 WAIT: S$CLREF_S #IMPSC_IOREFN ; clear rms event flag 
DB «10 0088 $04 BSBB ENBAST ; enable asts 
008A 02 SWAITFR_S #IMPSC_IOREFN ; wait for flag 
E2 10 0093 303 BSBB INHAST ; re-inhibit asts 
05 0095 304 SB | 
| 
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> 
+ 


run down subroutine: 


checks ifab table yo active files, 

if any found wets for any i/o activity to finish 
og Bi. a cancell i/o for non files-oriented devices) 
and then issues a $close request. 


when all files run down performs a sanity check by seeing if all irab 
table entries are also zero. 


fojelelelolololeloleloelelelolo) 
jelelelelelelelelelelealelelelo) 
wowowowowowowowowowowowoowvono 
DAEAEAXPEAPAA AAAS AO 


inputs: 
4} - impure area addr 
- bit 0 set if indirect ppf run down | 


s 
08 
09 
10 
1} 
18 
14 
15 
16 
17 
18 
19 
20 
321 
0096 35 23 - caller's arg List 
0096 $5 - caller's mode 
0096 ; 4 
0096 25 ; outputs: | 
0096 326 returns only if noerror encountered. 
0096 327 gay spot ingrd cleare 
0096 328 » 79, 710 destrayed 
0096 329 ;-- 
0096 330 
0096 331 RUNDWN: 
0096 332 $s #IMPSV_IORUNDOWN,(R11) ; set i/o rundown in progress flag 
O09A 3 333 3 to sync with ast-driven rms 
009A 38 334 ; operations 
55 18 AB DO OO9A 335 MOVL IMP$L_IFABTBL(R11),R5 ; get ifab table addr 
56 DS OO9E 336 CLRL R6 ; build ifi value here 
2 85 DO QOAQ 337 NXTSEG: MOVL (R5)+,R2 ; save addr rext table seg in r2 
54 20 AB 3C€ OQOA3 338 MOVZWL IMPSW. ENTPERSEG(R11),R4 ; get # entries/seg 
22 AB BS OOA? 339 NXTENT: TSTW IMP$W-NUM_IFABS(R11) 3 any ifabs active? 
OF 13 OQOAA 340 BEGL CHKIRE ; branch if none 
56 D6 OOAC 341 INCL R6 ; bump ifi | 
5A 85 DO OOAE 342 MOVL  (R5)+,R10 : get ifab addr | 
2F 4612 «#40081 =| 34 BNEQ RDIFAB : branch if one 
F154 F5 Q0B3 344 NXTSOB: SOBGTR R4,NXTENT ; keep scanning segment 
00B6 345 
0086 $08 3 
0086 47 ; no more ifabs this segment, try next 
00B6 48 ; 
0B6 49 
55 52 00 00B6 50 MOVL R2,R5 : get next -fegnent addr 
—E5 12 00B9 351 BNFQ NXTSEG ranch if one 
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v04-001 RMSSRMSRUNDWN = RMS 1/0 RUN DOWN 19-3 b= 1382 93:93 :h9 YAMS SRCIAMSORNDWN. MAR: 2 9 (9) VO4 
088 53 
088 2¢ $ 
oes 2? ; all ifabs have been run down now. 
0BB 2§ : unless this is indirect run down of ppf's, 
088 58 ; check that all irabs are also gone. 
088 59; 
0BB 60 
088 61 CHKIRB 
00000008 9088 $6 By we SSRMSTESTESSRMS_TBUGCHK 
1758 00 £4 Q0BB 6 BBSC #0,R8,30$ 3 branch if indirect run down 
55 1¢ ae DO OOBF 64 MOVL IMP$L_IRASTBL(R11),R5 ; get irab table addr 
* i DO 00C3 65 10$: MOVL (R5)+,R2 3 Save addr next table seg. 
54 20 AB 3C Q0C6 66 MOVZ2WL IMPS$W_ENTPERSEG(R11),R4 ; get # entries/seg. 
85 D5 OOCA 67 20$: STL (R5)+ 3; entry zero? 
0b 12 9OOCC 68 NEQ ERRBUG : branch if not 
F9 54 ~=FS) «(OOOCE $33 SOBGTR R4,20$ ; branch if more entries 
55 52 dO 00D) 70 MOVL R2,R5 3 get next seg addr 
ED 12 00D4 371 BNEQ 108 : branch if one 
00D6 $58 30$: CSB #IMP$V_IORUNDOWN,(R11) ; turn off rundown in progress flag 
OODA 37 ~ENDC 
05 OCD 374 RSB ; all o.k. 
00D8 32 
00DB 76 ; : g , 
Boe AG : close failed to zero ifab or irab table entry 
00DB 379 ERRBUG: RMSTBUG FTL$_IORNDN 
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: found an ifab. check for active and if so allow operation to finish 


ASSUME IMP$W_RMSSTATUS EQ 0 


RDIFAB: 
BLBS R8,RDNET ; branch if indirect ppf 
10$: BBC #IFBS$V_BUSY,(R10),RDNET ; if not busy then check NETWORK 
BBS #DEVSV-NET,(R10),20$ |; do cancel if busy & network operation 
BBC #IFBSV_RMS_STALL,=- ; if this RMS thread is not currently 
(R10) ,RDIRAB ; stalled then skip the cancel and wait 


allow function to finish ; 

\note: this code should be modified to 
properly run down read-ahead and write-behind 
operations to unit record devices.\ 


20$: SCANCEL_S IFBSW_CHNL(R10) ; cancel i/o (e.g. magtape create) 
BSBB WAIT 3; wait for an operation to finish 
TSTL -4(R5) : ifab disappear? (close) 
BEQL NXTSOB 3; branch if zs8 
BBC #IFBSV_BUSY,(R10),RDNET ; run down NETWORK if no longer busy 
BBS #DEVSV-NET, (R10) ,20$ ; but do cancel & wait again if busy & 
BBS #1FBSV_RMS_STALL,- ; network operation or busy and the RMS 

(R10) ,20$ ; thread is still stalled 


; if the current operation is a network operation, and a special recieve Q10 

; has been posted but NOT recieved, a SCANCEL must pavers e done to flush 

; this Q10. In file transfer mode it will be possible that a recieve has been 

3 posted but no transfer operation is underway. therefore neither the IFAB nor 
; the IRAB will be ouey. if a SCANCEL isn’t explicitely issued, when the S$CLOSE 
; is performed, the NETDRIVER will be unable to disconnect the logical Link 

; (because of the outstanding recieve), and the process will hang. 


RDNET: BBC #DEVSV_NET, (R10) ,RDIRAB 
MOVL IFBS$L_RWA_PTR(R10),RO 
RDIRAB 
BBC #NWASV RCVQIO,~ 


RO),R 
BBC #NWA$V_RCVAST,- 
(RO), CANCEL 


go run down IRABs if not network op 
obtain network work area address 

skip check if not network work area 
if a special recieve Q10 has not been 
posted go run down the IRABs, but if 
one has and it hasn't been recieved 
then go issue the cancel 


; run down irabs 


RDIRAB: 
M 


OVL R10,R9 :; copy ifab addr 
10$:  MOVL  IRB$L_IRAB_LNK(R9),R9 ; get next irab 
BEQL QUIET ; branch if none eee 
BLBS R8,12$ ; don't release locks if indirect PPF 


rundown 


RMSORNDWN 
v04-001 
FEDO' 30 
FO 69 Q €1 
04 6A dD «EO 
A €1 
E8 69 
68 £8 
03 69 22 €0 
DE 58 =E9 
1c = E0 
6A 
0B 
FF27 30 
C7. S11 


Oi a Oa i a ec 


—> —) 2 —4 —» —» —» _» ss —» _» 2» 4 —» —» — 2» —» _ 5 2 2) > 4 2 


ella al ar at or ee ot et et et et ee ee 
POW Y F&F OOO AWWA HOOP OLOOoO”U 


lelelelelelelelelelelelelelelelelelelelelelaleleleiola} 


RMS_I0 RUN DOWN 
RMSSRMSRUNDWN - 


a at nt at ot at et et et et et ee 
AACS MMWINAUIUTUTUTUTUT SS & 
WRC OONOUS WR —-OOOnNe 


464 
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RMS 1/0 RUN DOWN 


BSBW §RMSUNLOCKALL : 
12$: BBC #IRBSV_BUSY (R9) 108 : 
BBS #DEVSVINET,(R10).15$ =: 
BBC #IRBSV-RMS. STALL, - : 
(R9),10 ; 
15$:  BLBS (R11), 208 : 
BBS #IRBSV_PPF_IMAGE, (R9),20$ 
: branch if indirect i/o 
BLBC —RB, 10 ; 
20$: BBS #DEV$V_RND,- ° 
IFBSL_PRIM_DEV(R10),- ; 
NOCANTEL : 
CANCEL: $CANCEL_S IFBS$W_CHNL(R10) ; 
NOCANCEL: 
BSBW WAIT : 
BRB RDIRAB : 


1erge =i 98s 93:93:83 


AX/VMS Macro V04-00 
RMS ..SRCIRMSORNDWN. MAR; 2 


kill all record locks, inciuding 
guteteng ine waits. 
branch if idle 


see ah 


cancel if busy & network operation 
this RMS thread is not currently 
stalled then skip the cancel and wait 


branch if image i/o segment 


branch if only indirect ppfs 
to be run down 


no need to do a cancel if this is 
a disk operation, just go wait 


canrel i/o 
wait for at! ASTs to be delivered 
start from top of irab 


chain again (could 
have been disconnect) 


RMS 
v0é 


F 14 | 


RMSORNDWN RMS 10 RUN DOWN + fat 3 a8 PS 9 93 :93:1 AX/VMS Macro V04-00 Page 13 
v04-001 RMSSRMSRUNDWN = RMS 1/0 RUN DOWN 14-SEP-1984 22:52:5 RMS.SRCIJRMSORNDWN.MAR; 2 (15) | 
1k ite | 
15A $08 ; all activity ceased for this file. ; 
A ; force a close by constructing a fab and calling close. 
1 4 f l b i fab and call l 
18, apy 
78 AA D5 13, £76 QUIET: TSTL aie abate ; is it a shared file? | 
€ 12 0150 47 BNEQ $ ; yes, go close it 
3 6A E1 OSE 474 BBC #IFBSV_WRTACC, (R10) ,NOERR ;_branch if not write access | 
1 6A E1 163 475 BBC #DEVSV~DIR, IFASL PRIM_DEV(R10) ,NOERR 
8 6A 2 E1 Q16 $78 BBC #IFBSV-ACCESSED, TR10) ;NOERR ; branch if file not accessed 
0 04 AC DO 0168 477 5S: MOVL 4(AP) ,RO : get descriptor addr 
16F 478 IFNORD #8, (RO), NOERR1, R7 | 
10 60) «681 «(017547 (RO), #28 ; at least 22 bytes long? 
17 «1F «0178 480 BLSSU NOERR1 
53 04 A0 DO QI7A 481 MOVL 4(RO) ,R3 : eet buffer address 
59 SA 00 OI7E re MOVL R10,R9 : ifab to right register 
181 48 IFNOWRT #22,(R3) ,NOERR1,R7 ; branch if buffer not writable 
0069 30 0187 484 Bw GETOv1F 10 : go fill buffer with dvi and fid 
018A 485 RMSERR (CCF, ; get set for close failure 
OA 11 Hy $36 BRB CLOSE 
0191 188 NOERR1: RMSERR IAL,R3 ; if close failure, return ial 
03 11 0196 489 BRB CLOSE 
B138 $2) NOERR: RMSSUC SUC,R3 ; can't fail 
5E BO AE DE 0198 198 CLOSE: MOVAL -FABSC_BLN(SP),SP 3; create fab on stack 
5003 8F BO O19F 494 MOVW #FABSC_BID+<FABSC_BLN @8>,- 
6E O1A3 495 (SP ; fab block id and Length 
02 AE 56 BO Q1A6 496 MOVW R6, FABSW_IFI(SP) 3 iff y 
68 E—€8 QO1A8 497 BLBS (R11),10 3; branch if iio seg 
O1AB «498 SSB #15+<FABSW_IFI*8>,(SP) ; set pio flag 
04 58 €9 OQ1AF 499 BLBC R8,10$ ; branch if direct access 
01B2 300 SSB #F ABSV_PPF_IND+<FABSW_IF1*8>,- ' 
01B2 01 (SP) ; else make indirect ifi 
3¢)60Cs«&BBC«d B46 208 10$: PUSHR #*M<R2,R3,R4,R5> 3; save regs 
00 6€ 00 2c 0188 50 movcS #0, (SP) ,#0,- 
14 AE 004C 8F 01BC 9504 WFABSC BLN, 43<494>(SP): zero remainder of fab 
C eh brea 505 POPR #*M<R2,R35,R4,R5> ; restore r5 
FESF 0 1¢3 506 SB ENBAST 
5E 0D b1¢8 507 PUSHL SP ; addr of fab 
00000000 * 9F | 4 HS 503 CALLS Yt mates ; close it 
5E 00000050 8F C O13 10 ADDL #F ABSC_BLN,SP ; ‘pop’ fab 
05 —8 01D 11 BLBS R8,15$ zs omit check if indirect ppf 
FC AS D5 01DC I TSTL «= =4 ER : did ifab go away? 
of 3 1DF 1 BNEQ ERRBLC_BR ; branch if not 
03 50 3 161 14 15$: BLBC RO, 50 3; branch on error 
rece 1 O164 515 gos: BRw nxt508 > get next ifab 
ae D 1€7 16 0$: MOVL R3, > get saved error code 
f7 50 —C'E 1EA 1 BLBS RO, 208 ; no problem if not. 
1ED + ; write-accessed file 
FESE 31 158 i? sonin of e EXIT 3; return error to caller 
FEEB 31 1F9 331 ~ BRY ERRBUG ; extended branch 


[ 


G 14 
voe-00t RNSSRMSRUNDUN = RMS 1/0 RUN DOWN e=$Eb=-1984 92:93:57 ERMSVSRCTRASORNDUNMAR:2 28° (fay. v0 
;GETDEVIF 1D -- Get Device ID and File ID. 
; This routine returns the counted device name string, 
; aS well as the file id for the file open on the channel. 
Calling Sequence: 

BSBW GETDVIFID 
Input Parameters: 

R9 IFAB address 


R3 address of 22-byte buffer to return device name string 
IF BSW_CHNL channel # 


Implicit Inputs: 

none 
Output Parameters: 

RO,R1,R3 destroyed 
Implicit Outputs: 


The counted ascii string for the device name is moved 
to the buffer provided, followed by the file id starting 16 bytes 
from the start of the buffer. 


a a sb 8 ts tb bs 2 — bs 2s ss 2 2 ss 
i Di Bi i Bi Bi i Bi i i Bs Be Bs ee Bs Be De Be ie Re Re Be ee Bs Re Be Be es Bs | 


AWAWANAAAAINWt 


GUVs BBS BS BS BB EE AINA Inornororonon) 


lelelelelelelelelelelelelelelelelelelelelelelelolo! 
MEW OC ODNAU EWN 0 OD NOU EWN OOONOUE 


DVDV PV LVSUSVSUSUSUSUSUSUSISISISISIIIO 
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RMSORNDWN RMS IO RUN DOWN 16-SEP-1984 01:29: AX/VMS Macro v04-00 Page 15 
v04-001 RMSSRMSRUNDWN = RMS 1/0 RUN DOWN 1o- SE 382 93:93:13 YRMS SRCJRMS RNDWN.MAR; 2 ° (15) 
1F 7 GETDVIFID: 
0434 BF 8B 1F 8 PUSH #*M<R2,R4,R5,R10> ; Save regs. 
3 OD OF 5 PUSHL R3 ; Save R3. 
SA 3 AG 3 1F9 60 MOVL IFBSL_FWA teh ; Get FWA into R10. 
83 0190 CA 1F 61 MOVB CUASG SURE IL GRIRY CR )+ ; Move size of buffer id into first byte of 
Bi3y CA 2 6¢ MOVC3 FWAS$Q SHRFIL(R10),=- ; Move device id name into buffer 
194 DA 63 a WASC. SHRFIL +4 (R10) ,~ 
$3 8EDO pA 65 POPL R3 ; Restore R3. 
D 66 
020D 67 
8 +3 08 3 
D 8 ; Now get the file ID from the FWA. 
8 0D 0; R3 = address of the specified output buffer 
0D 71; 
0200 246 
10 AS D4 0200 7 CLAL 16(R3) : Clear FID field in buffer. 
14 A B4 0 19 574 CLRW 20(R3) 
07 69 O EO 021 575 BS #DEV$V_SQD,(R9),10$ ; branch if magtape (no FCB) 
06 28 217 576 MOVC3§ #6,- ; Move FID to buffer. 
O1FB CA O19 577 FWAST_F IBBUF +F IBSW_FID(R10),- 
10 a3 1c 486578 16(R3) 
0434 8F BA Q21 579 10$: POPR #*M<R2,R4,R5,R10> ; Restore regs. 
05 022 580 RSB 
022 581 
0223 582 .END 


RMSORNDWN RMS I0 RUN DOWN 19-SE0- 1986 91:99:13 YAX/Vs Macro v04-00 Page 16 
Symbol table 14-SEP-1984 22:32:5 RMS .SRCIRMSORNDWN. MAR; 2 (15) 
$$.PSECT_EP = 00000000 NWASB_OSTYPE 68 0c4 
SSRMSTEST = QOOOO0IA NWASB_RFM 000007 
SSRMS_PBUGCHK = i 19 NWASB_RMS_RAC 00 £5 
SSRMS_TBUGCHK = 0000 8 NWASC_BLN 4 
SSRMS“UMODE = 4444 4 NWASK_BLN 0 $ 3 
CANCEC 000014A R 01 NWASL_ALLXABADR 00 4 
CHKIRB 88082088 B 01 NWASL_DATXABADR 0000104 
LOSE 00001 P 01 NWASL_DEV 00000C0 
DEV$V_DIR = 0000000 NWASL_FHCXABADR 0000108 
DEVSV_NET = ae ge NWASL_KEYXABADR 0000010C 
DEVS$V_RND = 0000001 NWASL_MSG_MASK 00000004 
DEV$V_SQD F S444 NWASL_PRORABADR at abd 
AST 0000065 R 01 NWASL_RDTXABADR 0000114 
ERRBUG 000000DB R 01 NWASL_SAVE_FLGS 00000128 
ERRBUG BR 000001FO R 01 NWASL_SUMXABADR 00000118 
ERRBUSY 00000058 R 01 NWASL_ THREAD QOO000F C 
EXIT is ee R 01 NWASL_XLTATTR 00000238 
FABSC_BID = 0000000 NWASL _XLTBUFFLG 0000022C 
FABSC_BLN = 0000050 NWASL_XLTCNT BOR aS RE 
FABSV_PPF_IND = 0000000E NWASL—XLTMAX INDX 00000234 
FABSW_IFI = 00000002 NWASL_XLTSIZ at 4 
FIBSW_FID = 00000004 NWA$SQ_ACS 00000244 
FTL$_TORNDN = FRFFFFEE NWAS$Q_BIGBUF 00000170 
FWASO_SHRF IL = 00000190 A$Q"BLD 000000F 0 
FWAST _F IBBUF = 000001F4 ASQ_FL 00000000 
GE TOVTF ID QOOO01F3 R 01 NWASQ_INODE 0000025¢ 
IFBSL_FWA_PTR = 00000038 NWASQ_I0SB 00000008 
IFBSL_NWA_PTR = 0000003C NWASQ_LNODE 00000160 
IFBSL_PRIA_DEV = 00000000 NWA$Q_LOGNAME 944 SF 
IFBSL_SFSB_PTR = 00000078 NWASQ_NCB 00000264 
IFBSV_ACCESSED = 00000025 NWASQ_RCV QO0000E0 
IF BSV_BUSY = 44444444 NWASQ_SAVE DESC 00000120 
IFBSV_RMS_STALL = 0000003A NWASQ_XLTBOF1 0000024C 
IFBSV_WRTACC = sia 4 it NWASQ_XLTBUF2 00000254 
IF BSW_CHNL = 00000020 NWASQ_XMT OOO000ES 
IMPSC_IOREFN = 0O00001E NWAST_ACSBUF 0000026C 
IMPS$L_IFABTBL = 00000018 NWAST_AUXBUF 000005E0 
tie srt pl = 0000001C NWAST_DAP 00000000 
IMP$V_ 1ORUNDOWN = 00000004 NWAS$T_INODEBUF 000004AC 
IMP$W_ENTPERSEG = 00000020 NWAST_ITM_ATTR 00000200 
IMPSW_ = 00000022 NWAST_ITM_END 00000224 
IMPSW-RMSSTATUS = 000000 9 NWAST_ITM_LST 00000200 
INHAST 00000077 R 01 NWAST_ITM_MAXINDX 00000218 
IRBSL_IRAB_LNK 2 9000001 NWAST-ITM-STRI 90000 g¢ 
IRB$V_BUSY = 00000 NWAST_NCB 000052C 
IRBSV_PPF_ IMAGE = 000000 NWAST_NODEBUF 00000169 
IRBSV_RMS_STALL = 00000035A NWAST_RCVBUF 000001A0 
NOCANTEL aise 5 01 NWAST- SCAN Bo 888 188 
R 0000198 R 01 NWAST_ TEMP 00000120 
NOERR1 00000191 01 NWAST_XLTBUF 1 000002AC 
NWASB_ALLXABCNT 0000011¢ NWAST_XLTBUF2 Q00003AC 
NWASB_DAP_RAC 0000009 NWAST_XMTBUF 4 03¢0 
NWASB_FILESYS 000000C5 NWASV_RCVAST = 00000004 
NWASB_KEYXABCNT 909 11D NWASV-RCVQIO = 000 03 
NWASB_NETSTRSIZ 16F “BUILD 88 D 
NWASB_NODBUF $17 00000168 NWASW_DAPBUF SIZ 0 sch 
NWA$B_ ORG 0000006 NWASW"DIR_OFF 00000CC 


RMSORNDWN 
Symbol table 


NWASW_DISPLAY 


TPTSL_RUNDWN 
WAI 
XITSUC 


PSECT name 


Initialization 
Pass 1 


Command processing 
Symbol table sort 


Page faults 
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16-SEP-19 9:13 VAX/VMS Macro v04-00 p 
erSee TERS O5:g3ih9 PANCWaS faces Moen oans2 | ame 


1 
000 oA 8 it 
000008 4 
geeeeere x 1 
keeekere x 01 
Reeeeeee x 01 
keeeeere x 01 
09000003 
$009009 
00000016 
0000015A R 01 
QOOQ00E2 R 01 
0000121 R 01 
OOOOO10F R 01 
eekekeke x 01 
ekeeeeene x 01 
Rekekeee y 01 
kekkkaene x 01 
FFFFFFFE RG 01 
0001848C 
0001C0DC 
0001854C 
00000055 R 01 
00000096 R 01 
keekeeee GX 01 
kkekeeee 01 
keeeeeee GX 01 
eekekeee 6X 01 
teekeeee GX 01 
eekeneee 01 
QO00007F R 01 
00000048 R 01 
fer we cen ener oe cee + 
: Psect synopsis ! 
Allocation PSECT No. Attributes 


4 ( 549°) 00 ¢ QO.) NOPIC USR CON ABS LCL N 
000002 54 01 ¢ 1.) PIC USR CON REL  GBL NOS 
00000800 ( 2048.) O02 ¢ 2.) NOPIC USR CON ABS LCLN 


Geoeeccecoecesooecesceoce$ 


EXE NORD NOWRT NOVEC BYTE 
EXE RD NOWRT NOVEC BYTE 
EXE RD WRT NOVEC BYTE 


she NO 
OSHR 


CPU Time 


1erSEp=198e 92:83:57 


RMS 10 RUN DOWN AX/VMS Macr 


RMSORNDWN 
VAX-11 Macro Run Statistics 


Psect synopsis output 
Cross-reference output 
Assembler run totals 72 


Pass 2 109 : 95 
Symbol table output of “AY 

: $9 
0: 31 


37 
-26 
28 
The Po set Limit was 1650 pages. 
86675 bytes (170 pages) of virtual memory were used to buffer the intermediate seer. 
There were 90 pages of symbol table space allocated to hold 1649 non-local and Local symbols. 
2 source Lines were read in Pass 1, producing 14 object records in Pass 2. 
7 pages of virtual memory were used to define 36 macros. 


See eee Se ee ee eee wee eee ee et 


+ 
H Macro library statistics ! 


er ter ee we eee mene wee eee ee ae ee 


Macros defined 
“$52 28DUAGE: RMS .OBJJRMS.MLB;1 18 
_$255$DUA28: (SYS .OBJJLIB.MLB; 1 3 
$255$DUA28: CSYSLIBISTARLET.MLB;2 11 
TOTALS (all Libraries) 32 


1838 GETS were required to define 32 macros. 


Macro Library name 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMSORNDWN/OBJ=O0BJ$:RMSORNDWN MSRC$:RMSORNDWN/UPDATE=(ENH$ : RMSORNDWN) +EXECML$/LIB+LIB$:RMS/LIB 


RMS .SRCJRMSORNOWN.MAR; 2 a 
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